Sqr function

  DECLARATION:  Sqr(X);

      PURPOSE:  Returns the square of the argument

         UNIT:  System

  RESULT TYPE:  Same as argument

      REMARKS:  X must be an integer- or real-type expression.  The result
                will be of the same type as X and will equal the Square
                of X.  (X * X)